home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c++-part1 / 7067 < prev    next >
Encoding:
Text File  |  1996-08-05  |  2.8 KB  |  111 lines
  1. Newsgroups: comp.lang.ada,comp.lang.c++
  2. Path: alexandria.organon.com!alexandria!jsa
  3. From: jsa@organon.com (Jon S Anthony)
  4. Subject: Re: on OO differnces between Ada95 and C++
  5. In-Reply-To: nabbasi@qualcomm.com's message of 20 Feb 1996 06:37:46 GMT
  6. Message-ID: <JSA.96Feb21134417@organon.com>
  7. Sender: news@organon.com (news)
  8. Organization: Organon Motives, Inc.
  9. References: <4gbq7q$g08@qualcomm.com>
  10. Date: Wed, 21 Feb 1996 18:44:17 GMT
  11.  
  12. In article <4gbq7q$g08@qualcomm.com> nabbasi@qualcomm.com (Nasser Abbasi) writes:
  13.  
  14. Use child packages.  For example,
  15.  
  16. >  Learning_Ada95_OO_features...
  17. > ...
  18. > Now the C++ way:
  19. > 
  20. > 
  21. > --------------- account.h -------------------
  22. > class Account
  23. > {
  24. >   public:
  25. >   typedef int Money_Type;
  26. >   Money_Type Balance;
  27. >   int        Account_Id;
  28. > };
  29. > 
  30. > -------------- saving_account.h -----------------
  31. > 
  32. > #include "saving_account.h" 
  33. > class Saving_Account : public Account
  34. > {
  35. >   public:
  36. >   Money_Type Interest;
  37. > };
  38. > 
  39. > --------------- main.cpp -----------------
  40. > 
  41. > #include <iostream.h>
  42. > #include "saving_account.h"  // Notice: no need to include to base class
  43. >                              // Account in account.h
  44. > main()
  45. > {
  46. > Saving_Account             The_Saving_Account;
  47. > Saving_Account::Money_Type  The_Balance;  // notice, Money_Type accessed
  48. >                                           // through Saving_Account and
  49. >                                           // no need to include the
  50. >                                           // base class account
  51. > 
  52. >  cout << "Balance?";
  53. >  cin  >> The_Balance;
  54. >  The_Saving_Account.Balance = The_Balance;
  55. > 
  56. > return 1;
  57. > 
  58. > }
  59.  
  60. Ada version (from your stuff...):
  61.  
  62. > ------------------ account.ads ---------------------------
  63. > package Account is
  64. >  type Money_Type is new integer range 1..100; -- just as an example
  65. >  type Account_Type is tagged
  66. >    record
  67. >      Balance    : Money_Type;
  68. >      Account_Id : Integer; 
  69. >    end record;
  70. > end Account;
  71.  
  72. ----------------- Account-Savings.ads ----------------
  73.  
  74. Package Account.Saving_Account is
  75.  
  76.  -- Note: all the stuff in Account is visible here
  77.  
  78.  type Saving_Account_Type is new Account.Account_Type with
  79.    record
  80.      Interest : Account.Money_Type;
  81.    end record;
  82.  
  83. end Saving_Account;
  84.  
  85. > --------------- main.adb ---------------------------
  86. > 
  87. with Account.Saving_Account;
  88. --
  89. -- Note: visibility of Account comes along with Saving_Account here.
  90.  
  91. with ada.text_io; use ada.text_io;
  92.  
  93. procedure main is
  94.  
  95.   package Money_IO is new Ada.Text_IO.Integer_IO(Account.Money_Type);
  96.   The_Saving_Account : Saving_Account.Saving_Account_Type;
  97.   The_Balance : Account.Money_Type; 
  98.   begin
  99.     Money_IO.Get(The_Balance);
  100.     The_Saving_Account.Balance := The_Balance;
  101. end main;
  102. -- 
  103. Jon Anthony
  104. Organon Motives, Inc.
  105. 1 Williston Road, Suite 4
  106. Belmont, MA 02178
  107.  
  108. 617.484.3383
  109. jsa@organon.com
  110.  
  111.